Ì i 2
input.search.top
[inp.srch.date,inp.srch.resource]
/WSCI["S",wscD,wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.srch.date 8 DATE L wscD
inp.srch.resource 15 FREE L SCH.RESOURCE wre
Ì i 2
input.table
/WSCI["T"]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.current.time.col 2 PINT R /WSCI["T"]|1
inp.current.time.row 2 PINT R /WSCI["T"]|0
inp.time.left.col 2 PINT R /WSCI["T"]|2
inp.time.max.cols 2 PINT R /WSCI["T"]|5
inp.time.max.rows 2 PINT R /WSCI["T"]|4
inp.time.top.row 2 PINT R /WSCI["T"]|3
Ì € i 2
input.table.queue
[inp.table.time.row,inp.table.rsrc.col]
/WSCI["T",wscTR,wscRC]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.table.time.row 2 PINT R wscTR
inp.table.rsrc.col 2 PINT R wscRC
inp.table.appointments 3 PINT R /WSCI["T",wscTR,wscRC]|7
inp.table.available 3 PINT R /WSCI["T",wscTR,wscRC]|6
inp.table.book 3 PINT R /WSCI["T",wscTR,wscRC]|8
inp.table.capacity 3 PINT R /WSCI["T",wscTR,wscRC]|3
inp.table.end.time 4 HHMM5 L /WSCI["T",wscTR,wscRC]|2
inp.table.group 10 FREE L SCH.RSRC.GRP /WSCI["T",wscTR,wscRC]|4
inp.table.no.times 1 YN L /WSCI["T",wscTR,wscRC]|9
inp.table.obk 1 YN L /WSCI["T",wscTR,wscRC]|10
inp.table.prof.monogram 2 FREE L /WSCI["T",wscTR,wscRC]|14
inp.table.prof.time 4 HHMM5 L /WSCI["T",wscTR,wscRC]|13
inp.table.profile 1 YN L /WSCI["T",wscTR,wscRC]|12
inp.table.reserved 3 PINT R /WSCI["T",wscTR,wscRC]|5
inp.table.resource 15 FREE L SCH.RESOURCE /WSCI["T",wscTR,wscRC]|0
inp.table.resource.seq 3 PINT R /WSCI["T",wscTR,wscRC]|11
inp.table.start.time 4 HHMM5 L /WSCI["T",wscTR,wscRC]|1
Ì € i 2
input.table.queue.appt
[inp.table.time.row,inp.table.rsrc.col, inp.table.appt.urn]
/WSCI["T",wscTR,wscRC]A[wz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
inp.table.appt.urn 10 FREE L SCH.APPT wz
Ì i 2
input.table.resources
[input.table.resource.seq]
/WSCI["TR",wreQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
input.table.resource.seq 3 PINT R wreQ
inp.table.earliest 4 HHMM5 L /WSCI["TR",wreQ]|3
inp.table.resource.pcp 1 YN L /WSCI["TR",wreQ]|2
inp.table.resource.rows 2 PINT R /WSCI["TR",wreQ]|1
input.table.resource 15 FREE L SCH.RESOURCE /WSCI["TR",wreQ]|0
Ì i 2
week.inq.top
/WSCI["W"]
Field Name Len Dat Typ J DPM Offset/Local/VAL
week.start.date 8 DATE L VAL=%SCH.CAL.inquiry.week(c.week.start.date)
Ì € i 2
week.inq.resource
[week.day.resource]
/WSCI["W",wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
week.day.resource 15 FREE L SCH.RESOURCE wre
week.day1 8 DATE L /WSCI["W",wre]|1
week.day1.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day1))_(IF{@edit
VAL=ed[week.day.resource,@week.day1] "*"})
week.day2 8 DATE L /WSCI["W",wre]|2
week.day2.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day2))_(IF{@edit
VAL=ed[week.day.resource,@week.day2] "*"})
week.day3 8 DATE L /WSCI["W",wre]|3
week.day3.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day3))_IF{@edite
VAL=d[week.day.resource,@week.day3] "*"}
week.day4 8 DATE L /WSCI["W",wre]|4
week.day4.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day4))_IF{@edite
VAL=d[week.day.resource,@week.day4] "*"}
week.day5 8 DATE L /WSCI["W",wre]|5
week.day5.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day5))_IF{@edite
VAL=d[week.day.resource,@week.day5] "*"}
week.day6 8 DATE L /WSCI["W",wre]|6
week.day6.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day6))_IF{@edite
VAL=d[week.day.resource,@week.day6] "*"}
week.day7 8 DATE L /WSCI["W",wre]|7
week.day7.name 4 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.day7))_IF{@edite
VAL=d[week.day.resource,@week.day7] "*"}
week.day8 8 DATE L /WSCI["W",wre]|8
week.inq.out 90 FREE L /WSCI["W",wre]|0
week.resource.and.name 48 FREE L VAL=week.day.resource_" - "_@SCH.RESOURCE.name[week.da
VAL=y.resource]
Ì € i 2
week.inquiry
[week.day.resource, week.day.time.seq.no]
/WSCI["W",wre,wscT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
week.day.time.seq.no 2 PINT R wscT
week.day.end.time 4 HHMM5 L /WSCI["W",wre,wscT]|1
week.day.time 4 HHMM5 L /WSCI["W",wre,wscT]|0
week.day1.avail 5 DEC R /WSCI["W",wre,wscT]|3
week.day1.cap 5 DEC R /WSCI["W",wre,wscT]|4
week.day1.ovbk 5 DEC R /WSCI["W",wre,wscT]|5
week.day1.ovbk.yn 1 YN L VAL=IF{@week.day1.ovbk+0'=0 "Y";"N"}
week.day1.usage 5 DEC R /WSCI["W",wre,wscT]|2
week.day1.usage.obk 6 FREE L VAL=@week.day1.usage:5R_IF{@week.day1.ovbk+0>0 "*"}
week.day2.avail 5 DEC R /WSCI["W",wre,wscT]|7
week.day2.cap 5 DEC R /WSCI["W",wre,wscT]|8
week.day2.ovbk 5 DEC R /WSCI["W",wre,wscT]|9
week.day2.ovbk.yn 1 YN L VAL=IF{@week.day2.ovbk+0'=0 "Y";"N"}
week.day2.usage 5 DEC R /WSCI["W",wre,wscT]|6
week.day2.usage.obk 6 FREE L VAL=@week.day2.usage:5R_IF{@week.day2.ovbk+0>0 "*"}
week.day3.avail 5 DEC R /WSCI["W",wre,wscT]|11
week.day3.cap 5 DEC R /WSCI["W",wre,wscT]|12
week.day3.ovbk 5 DEC R /WSCI["W",wre,wscT]|13
week.day3.ovbk.yn 1 YN L VAL=IF{@week.day3.ovbk+0'=0 "Y";"N"}
week.day3.usage 5 DEC R /WSCI["W",wre,wscT]|10
week.day3.usage.obk 6 FREE L VAL=@week.day3.usage:5R_IF{@week.day3.ovbk+0>0 "*"}
week.day4.avail 5 DEC R /WSCI["W",wre,wscT]|15
week.day4.cap 5 DEC R /WSCI["W",wre,wscT]|16
week.day4.ovbk 5 DEC R /WSCI["W",wre,wscT]|17
week.day4.ovbk.yn 1 YN L VAL=IF{@week.day4.ovbk+0'=0 "Y";"N"}
week.day4.usage 5 DEC R /WSCI["W",wre,wscT]|14
week.day4.usage.obk 6 FREE L VAL=@week.day4.usage:5R_IF{@week.day4.ovbk+0>0 "*"}
week.day5.avail 5 DEC R /WSCI["W",wre,wscT]|19
week.day5.cap 5 DEC R /WSCI["W",wre,wscT]|20
week.day5.ovbk 5 DEC R /WSCI["W",wre,wscT]|21
week.day5.ovbk.yn 1 YN L VAL=IF{@week.day5.ovbk+0'=0 "Y";"N"}
week.day5.usage 5 DEC R /WSCI["W",wre,wscT]|18
week.day5.usage.obk 6 FREE L VAL=@week.day5.usage:5R_IF{@week.day5.ovbk+0>0 "*"}
week.day6.avail 5 DEC R /WSCI["W",wre,wscT]|23
week.day6.cap 5 DEC R /WSCI["W",wre,wscT]|24
week.day6.ovbk 5 DEC R /WSCI["W",wre,wscT]|25
week.day6.ovbk.yn 1 YN L VAL=IF{@week.day6.ovbk+0'=0 "Y";"N"}
week.day6.usage 5 DEC R /WSCI["W",wre,wscT]|22
week.day6.usage.obk 6 FREE L VAL=@week.day6.usage:5R_IF{@week.day6.ovbk+0>0 "*"}
week.day7.avail 5 DEC R /WSCI["W",wre,wscT]|27
week.day7.cap 5 DEC R /WSCI["W",wre,wscT]|28
week.day7.ovbk 5 DEC R /WSCI["W",wre,wscT]|29
week.day7.ovbk.yn 1 YN L VAL=IF{@week.day7.ovbk+0'=0 "Y";"N"}
week.day7.usage 5 DEC R /WSCI["W",wre,wscT]|26
week.day7.usage.obk 6 FREE L VAL=@week.day7.usage:5R_IF{@week.day7.ovbk+0>0 "*"}
Ì € i 2
week.inq.rsrc.grp
[week.rsrc.grp]
/WSCI["W",wrg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
week.rsrc.grp 10 FREE L SCH.RSRC.GRP wrg
week.grp.and.name 48 FREE L VAL=week.day.rsrc.grp_" - "_@SCH.RSRC.GRP.description[
VAL=week.day.rsrc.grp]
week.grp.day1 8 DATE L /WSCI["W",wrg]|1
week.grp.day1.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day1))
week.grp.day2 8 DATE L /WSCI["W",wrg]|2
week.grp.day2.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day2))
week.grp.day3 8 DATE L /WSCI["W",wrg]|3
week.grp.day3.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day3))
week.grp.day4 8 DATE L /WSCI["W",wrg]|4
week.grp.day4.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day4))
week.grp.day5 8 DATE L /WSCI["W",wrg]|5
week.grp.day5.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day5))
week.grp.day6 8 DATE L /WSCI["W",wrg]|6
week.grp.day6.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day6))
week.grp.day7 8 DATE L /WSCI["W",wrg]|7
week.grp.day7.name 3 FREE L VAL=%Z.day.out(%Z.day.from.date(@week.grp.day7))
week.grp.inq.out 90 FREE L /WSCI["W",wrg]|0
Ì i 2
log.resources
[log.resource]
*(W)WSCL[wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.resource 15 FREE L SCH.RESOURCE wre
Ì € i 2
log.dates
[log.resource, log.date]
*(W)WSCL[wre]A[wscD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.date 8 DATE L wscD
Ì € i 2
log.queue
[log.resource,log.date, log.q]
*(W)WSCL[wre]A[wscD]Q[wscQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.q 2 PINT R wscQ
log.q.edit.comment 30 FREE L *(W)WSCL[wre]A[wscD]Q[wscQ]|4
log.q.edit.date 8 DATE L *(W)WSCL[wre]A[wscD]Q[wscQ]|1
log.q.edit.reason 10 FREE L SCH.EDIT.RSN *(W)WSCL[wre]A[wscD]Q[wscQ]|3
log.q.edit.time 4 HHMM L *(W)WSCL[wre]A[wscD]Q[wscQ]|2
log.q.edited.by 10 FREE L MIS.USER *(W)WSCL[wre]A[wscD]Q[wscQ]|0
Ì € i 2
log.sched
[log.resource,log.date,log.q, log.start]
*(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.start 4 HHMM L wscF
log.capacity 3 INT R *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|1
log.end 4 HHMM L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|0
log.group 10 FREE L SCH.RSRC.GRP *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|2
log.pro.from.time 4 HHMM L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|6
log.profile 1 YN L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|7
log.profile.release 4 FREE L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|8
log.time.comment 15 FREE L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|10
log.time.reason 10 FREE L *(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]|9
Ì € i 2
log.or.prof.dr.grp
[log.resource,log.date,log.q,log.start, log.or.pro.dr.grp]
*(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]OR[ggh]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.or.pro.dr.grp 10 FREE L MIS.DOC.GRP ggh
Ì € i 2
log.or.prof.dr
[log.resource,log.date,log.q,log.start,log.or.pro.dr.grp, log.or.pro.dr]
*(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]OR[ggh]DR[ggg]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.or.pro.dr 10 FREE L MIS.DOC ggg
Ì € i 2
log.prof.grp
[log.resource,log.date,log.q,log.start, log.pro.grp]
*(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]PG[wac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.pro.grp 10 FREE L SCH.APPT.GROUP wac
Ì € i 2
log.prof.typ
[log.resource,log.date,log.q,log.start,log.pro.grp, log.pro.typ]
*(W)WSCL[wre]A[wscD]Q[wscQ]B[wscF]PG[wac]PT[wat]
Field Name Len Dat Typ J DPM Offset/Local/VAL
log.pro.typ 10 FREE L SCH.APPT.TYPE wat
Ì € i 2
resources
[resource]
*(W2)WSC[wre]
Field Name Len Dat Typ J DPM Offset/Local/VAL
resource 15 FREE L SCH.RESOURCE wre
comments.dai.seq.no 4 PINT R *(W2)WSC[wre]|2
comments.gen.seq.no 4 PINT R *(W2)WSC[wre]|0
comments.sch.seq.no 4 PINT R *(W2)WSC[wre]|1
resource.and.name 48 FREE L VAL=(@SCH.CAL.resource_" - "_@SCH.RESOURCE.name)
resource.ok 1 YN L VAL=%SCH.ACCESS.check.M.resource(resource,@.user)
Ì € i 2
comments.daily
[resource, comment.dai.seq.no]
*(W2)WSC[wre]CD[wscCD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.dai.seq.no 4 PINT R wscCD
comment.dai.edit 1 YN L *(W2)WSC[wre]CD[wscCD]|0
Ì € i 2
comments.daily.texts
[resource,comment.dai.seq.no, comment.dai.text.seq]
*(W2)WSC[wre]CD[wscCD]T[wscDT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.dai.text.seq 3 PINT R wscDT
comment.dai.text 60 TEXT L *(W2)WSC[wre]CD[wscCD]T[wscDT]
Ì € i 2
comments.general.text
[resource, comment.gen.text.seq]
*(W2)WSC[wre]CG[wscCG]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.gen.text.seq 3 PINT R wscCG
comment.gen.text 79 TEXT L *(W2)WSC[wre]CG[wscCG]
Ì € i 2
comments.schedule
[resource, comment.sch.seq.no]
*(W2)WSC[wre]CS[wscCS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.sch.seq.no 4 PINT R wscCS
comment.sch.edit 1 YN L *(W2)WSC[wre]CS[wscCS]|0
Ì € i 2
comments.schedule.texts
[resource,comment.sch.seq.no, comment.sch.text.seq]
*(W2)WSC[wre]CS[wscCS]T[wscST]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.sch.text.seq 3 PINT R wscST
comment.sch.text 60 TEXT L *(W2)WSC[wre]CS[wscCS]T[wscST]
Ì € i 2
main
[resource, date]
*(W2)WSC[wre]A[wscD]
Field Name Len Dat Typ J DPM Offset/Local/VAL
date 8 DATE L wscD
app.mins 4 PINT R *(W2)WSC[wre]A[wscD]|1
app.no 3 PINT R *(W2)WSC[wre]A[wscD]|5
cap.mins 5 PINT R *(W2)WSC[wre]A[wscD]|0
comment.no 3 PINT R *(W2)WSC[wre]A[wscD]|7
date.text.out 45 FREE L VAL=%SCH.COMMON.calendar.date.out("","",date)
day.comment.edit 1 YN L *(W2)WSC[wre]A[wscD]X|0
edit.comment.no 3 PINT R *(W2)WSC[wre]A[wscD]|8
edited 1 YN L *(W2)WSC[wre]A[wscD]|9
largest.avail.time.count 3 INT R VAL=@SCH.CAL.count[largest.avail.time.start]
largest.avail.time.dt.grp 10 FREE L VAL=@SCH.CAL.detail.group[largest.avail.time.start]
largest.avail.time.end 4 HHMM5 L VAL=@SCH.CAL.thru.time[largest.avail.time.start]
largest.avail.time.start 4 HHMM5 L VAL=%SCH.CAL.build.time.status.array(resource,date,"A"
VAL=)^largest.avail.time.start
ob.mins 4 PINT R *(W2)WSC[wre]A[wscD]|3
res.mins 4 PINT R *(W2)WSC[wre]A[wscD]|4
res.no 3 PINT R *(W2)WSC[wre]A[wscD]|6
sch.mins 4 PINT R *(W2)WSC[wre]A[wscD]|2
Ì € i 2
basic.sched
[resource,date, basic.start]
*(W2)WSC[wre]A[wscD]B[wscF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
basic.start 4 HHMM L wscF
basic.capacity 3 INT R *(W2)WSC[wre]A[wscD]B[wscF]|1
basic.end 4 HHMM L *(W2)WSC[wre]A[wscD]B[wscF]|0
basic.group 10 FREE L SCH.RSRC.GRP *(W2)WSC[wre]A[wscD]B[wscF]|2
basic.group.name 30 FREE L VAL=IF{'@basic.group IF{@basic.capacity+0=0 "<UNAVA
VAL=ILABLE>";"<AVAILABLE TO ANY GROUP>"};@SCH
VAL=.RSRC.GRP.description[@basic.group]}
basic.group.ok 1 YN L VAL=%SCH.ACCESS.check.M.rsrc.grp(@basic.group,@.user)
basic.pro.from.time 4 HHMM L *(W2)WSC[wre]A[wscD]B[wscF]|6
basic.profile 1 YN L *(W2)WSC[wre]A[wscD]B[wscF]|7
basic.profile.monogram 2 FREE L *(W2)WSC[wre]A[wscD]B[wscF]|9
basic.profile.release 4 FREE L *(W2)WSC[wre]A[wscD]B[wscF]|8
Ì € i 2
profile.group
[resource,date,basic.start, pro.group]
*(W2)WSC[wre]A[wscD]B[wscF]PG[wac]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pro.group 10 FREE L SCH.APPT.GROUP wac
Ì € i 2
profile.type
[resource,date,basic.start,pro.group, pro.type]
*(W2)WSC[wre]A[wscD]B[wscF]PG[wac]PT[wat]
Field Name Len Dat Typ J DPM Offset/Local/VAL
pro.type 10 FREE L SCH.APPT.TYPE wat
pro.type.max 2 PINT R *(W2)WSC[wre]A[wscD]B[wscF]PG[wac]PT[wat]|0
Ì € i 2
day.comments.texts
[resource,date, day.comment.seq]
*(W2)WSC[wre]A[wscD]X[wscX]
Field Name Len Dat Typ J DPM Offset/Local/VAL
day.comment.seq 4 PINT R wscX
day.comments.text 60 TEXT L *(W2)WSC[wre]A[wscD]X[wscX]
Ì € i 2
detail
[resource,date, status,from.time]
*(W2)WSC[wre]A[wscD]D[wscS,wscF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
status 1 CHOICE L wscS
from.time 4 HHMM L wscF
count 3 INT R *(W2)WSC[wre]A[wscD]D[wscS,wscF]|1
detail.comment.no 3 PINT R *(W2)WSC[wre]A[wscD]D[wscS,wscF]|2
detail.group 10 FREE L SCH.RSRC.GRP *(W2)WSC[wre]A[wscD]D[wscS,wscF]|4
detail.group.name 30 FREE L VAL=IF{'@detail.group IF{@status="U"!(@status="O") "&l
VAL=t;UNAVAILABLE>";"<AVAILABLE FOR ANY GROUP>
VAL=;"};@SCH.RSRC.GRP.description[@detail.group]}
detail.group.ok 1 YN L VAL=%SCH.ACCESS.check.M.rsrc.grp(@detail.group,@.user)
detail.pro.from.time 4 HHMM L *(W2)WSC[wre]A[wscD]D[wscS,wscF]|6
detail.profile 1 YN L *(W2)WSC[wre]A[wscD]D[wscS,wscF]|7
edit.detail.comment.no 3 PINT R *(W2)WSC[wre]A[wscD]D[wscS,wscF]|3
status.expanded.out 11 FREE L VAL=IF{status="A" "AVAILABLE";status="B" "BOOKED";stat
VAL=us="R" "RESERVED";status="U" "UNAVAILABLE";"OVERBO
VAL=OKED"}
thru.time 4 HHMM L *(W2)WSC[wre]A[wscD]D[wscS,wscF]|0
Ì € i 2
table
[resource,date, start.time]
*(W2)WSC[wre]A[wscD]T[wscF]
Field Name Len Dat Typ J DPM Offset/Local/VAL
start.time 4 HHMM L wscF
appointments 3 INT R *(W2)WSC[wre]A[wscD]T[wscF]|5
available 3 INT R *(W2)WSC[wre]A[wscD]T[wscF]|4
capacity 3 INT R *(W2)WSC[wre]A[wscD]T[wscF]|1
end.time 4 HHMM L *(W2)WSC[wre]A[wscD]T[wscF]|0
group 10 FREE L SCH.RSRC.GRP *(W2)WSC[wre]A[wscD]T[wscF]|2
group.name 30 FREE L VAL=IF{'@group IF{@capacity+0=0 "<UNAVAILABLE>";
VAL="<AVAILABLE FOR ANY GROUP>"};@SCH.RSRC.GRP.d
VAL=escription[@group]}
overbooked 3 INT R VAL=(@SCH.CAL.appointments-@SCH.CAL.capacity>0)
reserved 3 INT R *(W2)WSC[wre]A[wscD]T[wscF]|3
table.grp.appts 1 YN L VAL=IF{%SCH.CAL.table.grp.appts(resource,date,start.ti
VAL=me) "Y";"N"}
table.grp.avail 1 YN L VAL=IF{@group=group!(@group_.=.)&(@available+0>0) "
VAL=Y";"N"}
table.grp.avail.or.appts 1 YN L VAL=IF{IF{%SCH.CAL.table.grp.appts(resource,date,start
VAL=.time);@available+0'>0 "";@group=group;@group_.
VAL==.} "Y";"N"}
table.grp.conflict 1 YN L VAL=IF{'@SCH.CAL.group "N";@Last(SCH.CAL.appt.rsrc.gro
VAL=up)_.^g'=(@First(SCH.CAL.appt.rsrc.group)_.) "Y";g
VAL='=.'=(@SCH.CAL.group_.) "Y";"N"}
table.pro.from.time 4 HHMM L *(W2)WSC[wre]A[wscD]T[wscF]|6
table.profile 1 YN L *(W2)WSC[wre]A[wscD]T[wscF]|7
table.time.in.range 1 YN L VAL=IF{b.from.time'<start.time<@end.time "Y";sta
VAL=rt.time>b.from.time<e.from.time "Y";"N"}
table.time.ok 1 YN L VAL=%SCH.CAL.check.table.time.access(resource,date,sta
VAL=rt.time)
usage 3 INT R VAL=(0+@SCH.CAL.appointments+@SCH.CAL.reserved)
Ì € i 2
table.appts
[resource,date,start.time, appt.rsrc.group,appt.urn]
*(W2)WSC[wre]A[wscD]T[wscF,wrg,wz]
Field Name Len Dat Typ J DPM Offset/Local/VAL
appt.rsrc.group 10 FREE L SCH.RSRC.GRP wrg
appt.urn 10 FREE L SCH.APPT wz
appt.continued 1 FREE L VAL=IF{@table.appts[resource,date,@end.time,appt.urn]
VAL="*"}
appt.rsrc.grp.conflict 1 YN L VAL=IF{appt.rsrc.group=@group "N";"Y"}
appt.rsrc.grp.ok 1 YN L VAL=%SCH.ACCESS.check.M.rsrc.grp(appt.rsrc.group,@.use
VAL=r)
appt.type 10 FREE L SCH.APPT.TYPE *(W2)WSC[wre]A[wscD]T[wscF,wrg,wz]|0
Ì i 2
rsrc.book
[book.resource,book.date,book.time]
/WSCB[wre,wscD,wscBT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
book.resource 15 FREE L SCH.RESOURCE wre
book.date 8 DATE L wscD
book.time 4 PINT R wscBT
book.capacity 3 INT R VAL=(@SCH.CAL.capacity[SCH.CAL.book.resource,SCH.CAL.b
VAL=ook.date,@SCH.CAL.book.from.time]+0)
book.date.out 45 FREE L VAL=%SCH.COMMON.calendar.date.out("","",book.date)
book.from.time 4 HHMM5 L /WSCB[wre,wscD,wscBT]|1
book.resource.and.name 48 FREE L VAL=(@SCH.CAL.book.resource_" - "_@SCH.RESOURCE.name)
book.time.edit.comment 15 FREE L /WSCB[wre,wscD,wscBT]|3
book.time.edit.reason 10 FREE L SCH.EDIT.RSN /WSCB[wre,wscD,wscBT]|2
book.time.in.order 1 YN L /WSCB[wre,wscD,wscBT]|0
book.time.out 6 FREE L VAL=IF{"N"=@book.time.in.order " "_book.time;book.tim
VAL=e}
book.time.status 10 CHOICE L
Ì € i 2
rsrc.book.detail
[book.resource,book.date,book.time, book.table]
/WSCB[wre,wscD,wscBT,wscbS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
book.table 2 PINT R wscbS
book.appt1 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|0
book.appt1.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|1
book.appt1.description 30 FREE L VAL=IF{@book.appt1.cont="Y" "||":30C;@book.time.edit.r
VAL=eason @book.time.edit.reason_" "_@book.time.edit.c
VAL=omment;@book.appt1^book.appt1 @SCH.APPT.pt.name.de
VAL=sc}
book.appt2 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|4
book.appt2.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|5
book.appt2.description 30 FREE L VAL=IF{@book.appt2.cont="Y" "||":30C;@book.appt2^book.
VAL=appt2 @SCH.APPT.pt.name.desc}
book.appt3 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|8
book.appt3.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|9
book.appt3.description 30 FREE L VAL=IF{@book.appt3.cont="Y" "||":30C;@book.appt3^book.
VAL=appt3 @SCH.APPT.pt.name.desc}
book.appt4 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|12
book.appt4.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|13
book.appt4.description 30 FREE L VAL=IF{@book.appt4.cont="Y" "||":30C;@book.appt4^book.
VAL=appt4 @SCH.APPT.pt.name.desc}
book.appt5 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|16
book.appt5.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|17
book.appt5.description 30 FREE L VAL=IF{@book.appt5.cont="Y" "||":30C;@book.appt5^book.
VAL=appt5 @SCH.APPT.pt.name.desc}
book.appt6 10 FREE L SCH.APPT /WSCB[wre,wscD,wscBT,wscbS]|20
book.appt6.cont 1 YN L /WSCB[wre,wscD,wscBT,wscbS]|21
book.appt6.description 30 FREE L VAL=IF{@book.appt6.cont="Y" "||":30C;@book.appt6^book.
VAL=appt6 @SCH.APPT.pt.name.desc}
book.rsrc.from1 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|3
book.rsrc.from2 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|7
book.rsrc.from3 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|11
book.rsrc.from4 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|15
book.rsrc.from5 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|19
book.rsrc.from6 4 HHMM L /WSCB[wre,wscD,wscBT,wscbS]|23
book.status1 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|2
book.status1.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status1,@b
VAL=ook.appt1,@book.appt1.cont)
book.status2 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|6
book.status2.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status2,@b
VAL=ook.appt2,@book.appt2.cont)
book.status3 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|10
book.status3.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status3,@b
VAL=ook.appt3,@book.appt3.cont)
book.status4 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|14
book.status4.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status4,@b
VAL=ook.appt4,@book.appt4.cont)
book.status5 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|18
book.status5.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status5,@b
VAL=ook.appt5,@book.appt5.cont)
book.status6 1 CHOICE L /WSCB[wre,wscD,wscBT,wscbS]|22
book.status6.out 30 FREE L VAL=%SCH.CAL.set.up.book.M.status.out(@book.status6,@b
VAL=ook.appt6,@book.appt6.cont)
Index Files Subscripts/Physical Base
resource.rsn.x [resource,date,start.time,end.time,time.reason] = time.comment
?(W)WSCRN[wre,wscD,wscF,wscT,wrr]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |